home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1988 March & April / rerun-1988-03-04.d64 / windows list2 (.txt) < prev   
Encoding:
Commodore BASIC  |  1988-01-01  |  300 b   |  14 lines
  1. 0 rem window construction prg. 2 - john ryan
  2. 5 rem --> listing #2 demo program <--
  3. 10 nm$="wcs file":if flag=1 goto40
  4. 20 if flag=2 then 60
  5. 30 flag=1:load "wcs",8,1
  6. 40 flag=2:load nm$,8,1
  7. 50 :
  8. 60 print"[147]":for a=1 to 184:print"demo ";:next
  9. 70 a=1
  10. 80 poke 820,a:sys 49155
  11. 90 a=a+1:ifa=10 then a=0
  12. 100 poke198,0:wait 198,1
  13. 110 goto 80
  14.